home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 December / macformat-044.iso / Demos / The Ghost Cave / BB / RBB / PUZ.Dxr / 00012.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  550 b   |  18 lines
  1. on mouseUp
  2.   global offs, offs2, piecelist, totalpiece, totalstart, numCorrect, emtol
  3.   set lH to the locH of sprite the clickOn
  4.   set lV to the locV of sprite the clickOn
  5.   unhighlight1(getAt(piecelist, the clickOn - offs))
  6.   if iscorrect(getAt(piecelist, the clickOn - offs), lH, lV) then
  7.     finish(getAt(piecelist, the clickOn - offs))
  8.   else
  9.     moveBackDown(getAt(piecelist, the clickOn - offs))
  10.   end if
  11.   unhighlight2(getAt(piecelist, the clickOn - offs))
  12. end
  13.  
  14. on mouseDown
  15.   global offs
  16.   highlight(getAt(piecelist, the clickOn - offs))
  17. end
  18.